PROGRAMS FOR CALCULATING RAILROAD EXCAVATION AND EMBANKMENT USING VISUAL BASIC 6 

(draft) 

by 
James C. Burke 

Introduction 

The purpose of this study is to develop a package of useful programs using Microsoft Visual Basic 6 for calculating the 
volume of excavation or embankment for a railroad survey. The same applications can be applied to some aspects of 
estimating earthworks for highway construction. Some the programs contained in the package are devoted to profile leveling. 

During the course of surveying a railroad cross-section calculations are made at each survey station. Short distances 
between stations allow for estimation of volume that has greater accuracy, but more time is committed to making calculation. 
The object of developing a computer program to handle the tedious formulas associated with this task is to facilitate the 
preparation of estimates in the field whereby the surveyor enters raw measurements. The program provides instance cross- 
sectional areas, the volume between stations, and keeps a running total. By utilizing the Visual Basic code included herein, all 
who are familiar with the software can quickly prepare the program for practical application, and avoid the expense of 
purchasing specialized software. 

The Formulas 

The basic formula for the cross-section of a railroad excavations and embankment, as expressed by John Woodbridge 
Davis in his Formulae for the Calculation of Railroad Excavation and Embankment of 1877, is the sum of the triangles formed by 
the division of the cut from the center of the rail bed. The height of the line from the center to the top of the cut is represented 
as c, the term b represents one half of the width of the road-bed, r is the elevation of the right slope stake above grade, / is the 
elevation of the left slope stake above grade, /'is the horizontal distance from the side left, r'is the horizontal distance from the 
side right, and w is the entire width between slope stakes. The entire formula can be expressed as 
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The ratio of the slope is denoted as S, where S = — = - and r = Sr\ I = SI' making the area of the section the expression 

-Sb(r' + /') +-c(r' + V + 2b), thus -Sb(r' + V + 2b) - Sb 2 +-c(r' + V + 2b) or -w(c +Sb) - Sb 2 . Davis concentrates on 
two variables for his formulas to determine volume, the center c and the width w. The volume of excavation between two 
stations is (wc + w'c' + Sb(w + w') — ASb 2 ) — where D is the distance between stations and the results are given in cubic 



yards. 
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In the recent times, surveying text books such as Surveying Theory and Practice by Raymond Davis, Francis Foote, and 
Joe Kelly presented the formulas for excavations and embankments in a several simple forms for special applications rather 
than general formulas. The special applications are Regular Cross-sections, Three-level Sections, and Irregular Road Cross- 
sections. The Regular Cross-section method is the simplest, A = c(d + — ) . However, it was limited applications because the 
excavation or embankment is made on level ground. The most useful of the formulas is the Three-level Section, A = 
— (/li + h 2 ) + - (di + d 2 ) . Like the formula presented by J.W. Davis, it allows for different depths or heights on the center, left, 

4 2 

and right sides. The volume of earthworks is general calculated using in the Average End Areas formula, V = - (A 1 + A 2 ) 

where the volume between the two stations is the average of their cross-sectional areas multiplied by the distance separating 
them. The volume between two cross-sections is the practical unit. The surveyor can then provide the volume of excavation or 
embankment at a particular location then calculates a total of the volumes for an estimate in the final report. These are the 
basic formulas that need to be utilized in a computer program. 

The Irregular Road Cross-sections method is an extremely complex set of operations that are applied to cross-sectional 

areas that have ridges and depressions on the surface. The pattern is notated as the matrix | 2 * „ , x 2 \ where the 

center line C set at with the lower elements on the left of C negative and the lowers elements right of C positive and half the 
roadbed ( , + — ) is added to the opposite ends of the matrix. The final form of the matrix appears as 

H 2 Hi C h, h 2 

i ,„ , _ , _ , „ , , , ,„ I and can be expressed in the operations that multiple the upper 

-W/2+ -D 2 + -D t + +d 1 - +d 2 - +w/2- ' r r r rr 

term by the sum of two adjacent lower terms, H 2 ( + — — DA + H t (+D 2 — 0) + C(+D 1 + d-J + /^(O + d 2 ) + h 2 {— d 1 + — ) . 

There can be more divisions of the cross-section, for example H 1 , H 2 , H 3 ...n and d x , d 2 , d 3 ...n. This type of method requires 



different treatment in a software program as each cross-section could have different divisions of the surface. The result must 
be divided in half. 



Project 1: Surveyor's Railroad Embankment and Excavation Calculator 

This Visual Basic 6 application is designed to assist the surveyor in the field with tools for determining the Regular Cross- 
Section, Three-level Section, and Volumes between stations. The program also features a log for note such as estimated volumes 
between particular stations, notes about elevation gain, soil composition, etc. The log can be saved to file, and opened. Calculations of 
cross-section areas are sent to a list box by ADD and the LIST AREA command. Individual area can be removed from the list or 
cleared before they are added. Selected one method removes or disables text boxes that are not used in the selected method. Common 
variables such a Center and Roadbed Width remain active. Using the ADD radio button prevents modifying the entries, but the entries 
still can be cleared. The user can enter cross-sectional areas into the text boxes in the Volume calculator. Data that is not entered into 
the Log is not saved when the program is closed (Figure 1). 

The GUI is set up as a dedicated calculator and note pad for field work. Its purpose is intended for estimating cross-sectional 
areas and volumes between stations for immediate use. The estimated volume of earth removed or added for the excavations and 
embankments is rough. Other programs in this set of applications are aimed toward providing a more detailed estimate, if the need 
requires. Irregular landscape surfaces can involve calculations with a number of variables. The VB code is given on the pages 
following Figure 1 . 
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Figure 1. This is GUI for the "Surveyor's Railroad Embankment and Excavation Calculator" program. The VB code for this program 
is listed below. 



'James C. Burke 

'Railroad Excavations and Embankment Calculator 

'24 November 2008 

Option Explicit 



Private Sub chkReg_Click() 

'Select Regular Cross-section formula 
cmdCalc.Enabled = True 
cmdClear.Enabled = True 



chkThree. Enabled = False 
TxtDleft. Enabled = False 
txtDright.Enabled = False 
txtHleft. Enabled = False 
txtHright.Enabled = False 
TxtDleft.Visible = False 
txtDright.Visible = False 
txtHleft. Visible = False 
txtHright.Visible = False 
txtlnputC. Enabled = True 
txtlnputW. Enabled = True 
txtlnputD. Enabled = True 
chkReg. Enabled = False 

End Sub 

Private Sub chkThree_Click() 

'Select Three Section formula 
cmdCalc. Enabled = True 
cmdClear. Enabled = True 
txtlnputD. Enabled = False 
txtlnputD = 1 
txtlnputD. Visible = False 
TxtDleft.Enabled = True 
txtDright.Enabled = True 
txtHleft.Enabled = True 
txtHright.Enabled = True 
txtlnputC. Enabled = True 
txtlnputW. Enabled = True 
chkReg. Enabled = False 
chkThree.Enabled = False 

End Sub 

Private Sub cmdCalc2_Click() 

'Volume [V = Length/2 (Cross Sectional Area + Next Cross Section Area)] 



Dim A1 As Double 
Dim A2 As Double 
Dim L As Double 
Dim V As Double 
Dim CST As Double 

On Error GoTo ErrHandler 

L = txtLength.Text * 0.5 
A1 =txtCS1.Text 
A2 = txtCS2.Text 
CST = A1 + A2 
V = CST * L 
txtVol.Text = V 

Exit Sub 

ErrHandler: 
MsgBox "Invalid Entry" 

End Sub 

Private Sub cmdClear_Click() 

'Clear Cross-section entries 
cmdCalc.Enabled = False 
chkThree. Enabled = True 
chkReg. Enabled = True 
txtlnputC = "" 
txtlnputW = "" 
TextArea = "" 
TxtDleft = "" 
txtDright = "" 
txtHleft = "" 
txtHright = "" 
chkThree. Value = False 
chkReg. Value = False 



TxtDleft. Enabled = False 
txtDright. Enabled = False 
txtHleft. Enabled = False 
txtHright.Enabled = False 
TxtDleft.Visible = True 
txtDright. Visible = True 
txtHleft. Visible = True 
txtHright. Visible = True 
txtlnputC. Enabled = False 
txtlnputD. Enabled = False 
txtlnputD = "" 
txtlnputD. Visible = True 
txtlnputW. Enabled = False 

End Sub 

Private Sub cmdClear2_Click() 

'Clear Volume entries 
txtCSI Text = "" 
txtCS2.Text = "" 
txtLength.Text = "" 
txtVol.Text = "" 

End Sub 

Private Sub cmdl_og_Click() 

'Enter Cross Sectional Areas in List 
If TextArea = "" Then MsgBox "Error" 
IstArea.Addltem (TextArea.Text) 
txtlnputC = "" 
txtlnputD = "" 
txtlnputW = "" 
TextArea = "" 
TxtDleft = "" 
txtDright = "" 
txtHleft = "" 



txtHright = "" 

'Disable entries function 
cmdLog. Enabled = False 
OK.Enabled = False 
chkThree.Enabled = True 
chkReg. Enabled = True 
TxtDleft.Visible = True 
txtDright. Visible = True 
txtHleft. Visible = True 
txtHright. Visible = True 
txtlnputD. Visible = True 
TxtDleft. Enabled = False 
txtDright. Enabled = False 
txtHleft. Enabled = False 
txtHright.Enabled = False 

End Sub 

Private Sub CmdCalc_Click() 

'Calculates Regular and Three Section Areas 
Dim C As Double 
Dim D As Double 
Dim W As Double 
Dim A As Double 
Dim Q As Double 
Dim S As Double 
Dim DLR As Double 
Dim HLR As Double 
Dim P As Double 
Dim R As Double 

On Error GoTo ErrHandler 

'Regular Cross-Section 
C = txtlnputC.Text 
D = txtlnputD.Text 
W = txtlnputW.Text * 0.5 



Q = D + W 
A = C*Q 
TextArea.Text = A 

If chkReg. Value = False Then 

'Three Section 
C = txtlnputC.Text * 0.5 
W = txtlnputW.Text * 0.25 
DLR = TxtDleft.Text + txtDright.Text 
HLR = txtHleft.Text + txtHright 

P = W*HLR 
R = C*DLR 

A=P + R 
TextArea.Text = A 

End If 

OK.Enabled = True 
OK. Value = False 
chkReg. Value = False 
chkThree. Value = False 
txtlnputC. Enabled = False 
txtlnputD. Enabled = False 
txtlnputW. Enabled = False 

Exit Sub 

ErrHandler: 
MsgBox "Invalid Entry" 

End Sub 
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Private Sub CmdOpen_Click() 

'Opens Log File 
Dim strOpenFile As String 
On Error GoTo ErrHandler 
CommonDialogl .CancelError = True 

CommonDialogl. Flags = cdlOFNFileMustExist + cdlOFNHideReadOnly 
CommonDialogl. Filter = "All Files (V)|V|Rich Text Files" & "(*.rtf)r.rtf|Text Files(*.txt)*.txt" 
CommonDialogl .Filterlndex = 2 
CommonDialogl .ShowOpen 
strOpenFile = CommonDialogl .FileName 
RichTextBoxl .LoadFile strOpenFile 

ErrHandler: 

Exit Sub 

End Sub 

Private Sub cmdRemove_Click() 

On Error GoTo ErrHandler 

'Removes List Entries 
If IstArea.Listlndex <> -1 Then 
Call IstArea.Removeltem(lstArea.Listlndex) 

End If 

ErrHandler: 
MsgBox "Removed Item" 

End Sub 

Private Sub cmdSave_Click() 

'Saves Log as file 
Dim strNewFile As String 
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On Error GoTo ErrHandler 

CommonDialogl .CancelError = True 

CommonDialogl. Flags = cdlOFNHideReadOnly + cdlOFNOverwritePrompt 

CommonDialogl. Filter = "All Files (*.*)|*.*|Rich Text Files" & "(*.rtf)|*.rtf|Toxt Files(*.txt)*.txt" 

CommonDialogl .Filterlndex = 2 

CommonDialogl .ShowSave 

strNewFile = CommonDialogl. FileName 

RichTextBoxl .SaveFile strNewFile 

ErrHandler: 

Exit Sub 

End Sub 

Private Sub OK_Click() 

'Approve Calculation of Area and sends answer to be added to List 
cmdLog. Enabled = True 
chkThree. Enabled = False 
chkReg. Value = 
OK.Enabled = False 
cmdRemove. Enabled = True 
End Sub 
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Project 2: Irregular Road Cross-sections 

As stated above, the formula for Irregular Road Cross-sections can be expressed as H 2 ( + — — D 1 J + H t (+D 2 — 0) + 
C(+D 1 + d x ) + h^O + d 2 ) + h 2 (—d 1 + — ) . In this program the center measurement, road width, heights and distances can be 
entered into the text boxes on the GUI (Figure 2). 
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Figure 2. The GUI for the Irregular Road Cross-sections calculator is organized for entering height and distance measurements. 
The boxes for "0" and "w/2" in blue are disabled. 
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The elements in the blue text boxes include "0" and half the width of the road bed. These boxes are disabled. The calculations 
can be saved to the list box to the right of the form. This program is intended to be a function that can be brought up in the 
main program. 

The VB code for this function is as follows. 

'James C. Burke 
'Irregular Cross-sections 
'28 November 2008 

Option Explicit 

Private Sub cmdCalc1_Click() 



m C As Double 
m d1 As Double 
m d2 As Double 
m hi As Double 
m h2 As Double 
m W As Double 
m DD1 As Double 
m DD2 As Double 
m HH1 As Double 
m HH2 As Double 
m WL As Double 
m WR As Double 
m CS As Double 
m B As Double 
m Q As Double 
m R As Double 
m T As Double 
m U As Double 
m V As Double 



On Error GoTo ErrHandler 
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W = txtwidth.Text 
txtwL.eft.Text = W * 0.5 
txtwRight.Text = W * 0.5 
C = txtCenter.Text 
d1 = txtdlright.Text 
d2 = txtd2right.Text 
DD1 =txtDD1left.Text 
DD2 = txtDD2left.Text 
hi = txthlright.Text 
h2 = txth2right.Text 
HH1 =txtHH1left.Text 
HH2 = txtHH2left.Text 
WL = txtwLeft.Text 
WR = txtwRight.Text 

B = HH2 * (txtwLeft.Text - DD1) 
Q = DD2*HH1 
R = C*(DD1 +d1) 

T = d2*h1 

U = h2 * (txtwRight.Text - d1) 

CS=B+Q+R+T+U 

txtansr.Text = CS * 0.5 

Exit Sub 

ErrHandler: 
MsgBox "Error" 

Exit Sub 

cmdAdd. Enabled = True 

End Sub 

Private Sub cmdAdd_Click() 
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IstCS. Add Item (txtansr.Text) 
txtansr.Text = "" 

cmdAdd. Enabled = False 

End Sub 

Private Sub CmdClear1_Click() 

txtCenter.Text = "" 
txtdlright.Text = "" 
txtd2right.Text = "" 
txtDDI left.Text = "" 
txtDD2left.Text = "" 
txthlright.Text = "" 
txth2right.Text = "" 
txtHHI left.Text = "" 
txtHH2left.Text = "" 
txtwidth.Text = "" 
txtwLeft.Text = "" 
txtwRight.Text = "" 

End Sub 

Private Sub cmdCearitem_Click() 

On Error GoTo ErrHandler 

If IstCS.Listlndex <> -1 Then 

Call IstCS.Removeltem(lstCS.Listlndex) 

End If 

Exit Sub 
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ErrHandler: 
MsgBox "Error" 

Exit Sub 

cmdAdd. Enabled = True 

End Sub 
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Project 3: Simpson's One-third Rule 

Simpson's One-third Rule is used for calculating the area bounded by the arc of a parabola where d is a half the distance 
from the center hi with hi and hi as the two end measurements. The formula is expressed as A 12 = — — -2d + (h 2 — 

— — -J 2d x - = - (h x + 4/i 2 + /i 3 ). Measurement fc is equidistant from hi and hi. 

The GUI for the program is user friendly. The heights and distance measurements are all that is required. This program 
is designed as a function of the general program (Figure 3). 
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Figure 3. This function calculates cross-sectional area according to Simpson's One-third Rule. 
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Depending on the concavity or convexity of the curved surface the results might be greater or less than results obtained 

by other methods. [A variant of Simpson's One-third Rule is the Prismodial Formula for calculating volume, V = - (A 1 + AA m + 

A 2 ). In this formula the middle cross-section is determined by averaging the dimensions of the end sections.] The code for the 
function appears below. 

'James C. Burke 
'Simpson 's One-third Rule 
'2 December 2008 
Option Explicit 
Private Sub cmdCalc_Click() 

Dim hi As Long 
Dim h2 As Long 
Dim h3 As Long 
Dim d As Long 
Dim Hsum As Long 

On Error GoTo ErrHandler 

hi =txth1.Text 
h2 = txth2.Text * 4 
h3 = txth3.Text 
d = txtd.Text/3 

Hsum = hi + h2 + h3 
txtCS.Text = d * Hsum 

cmdAdd. Enabled = True 
Exit Sub 
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ErrHandler: 
MsgBox "Error" 

Exit Sub 

End Sub 

Private Sub cmdAdd_Click() 

IstCS. Add Item (txtCS.Text) 
txtCS.Text = "" 

cmdAdd. Enabled = False 
cmdDelete. Enabled = True 

End Sub 

Private Sub cmdClear_Click() 

txthl Text = "" 
txth2.Text = "" 
txth3.Text = "" 
txtd.Text = "" 
txtCS.Text = "" 

cmdDelete. Enabled = False 

End Sub 

Private Sub cmdDelete_Click() 

On Error GoTo ErrHandler 

If IstCS.Listlndex <> -1 Then 

Call IstCS.Removeltem(lstCS.Listlndex) 

End If 

Exit Sub 
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ErrHandler: 
MsgBox "Error" 

Exit Sub 

cmdAdd. Enabled = True 

End Sub 
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Project 4: The Prismoidal Formula 

The Prismoidal Formula is another application of Simpson's One-third Rule. The program associated with this 
procedure calculates the middle dimensions from the measurements from the dimensions of the station before and after. It 
calculates the areas in square feet for all three, and provides the volume of the entire section in cubic yards (Figure 4). 
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Figure 4. This figure shows the GUI for the Prismoidal Formula application. The user enters the measures for stations A and B as well 
as the length between them and one-half the width of the roadbed. After clicking the command "Calculate," the program 
generates the dimensions of the middle cross-section, the areas of all three cross-sections, and the volume of the entire 
section. 
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The VB code for the procedure is given below. 

Option Explicit 

Private Sub cmdMid_Click() 



m HH1 As Double 
m HH2 As Double 
m HH3 As Double 
m C1 As Double 
m C2 As Double 
m C3 As Double 
m hi As Double 
m h2 As Double 
m h3 As Double 
m DD1 As Double 
m DD2 As Double 
m DD3 As Double 
m d1 As Double 
m d2 As Double 
m d3 As Double 
m A1 As Double 
m A2 As Double 
m A3 As Double 
m W As Double 
m D As Double 
m E As Double 
m V As Double 



On Error GoTo ErrHandler 
HH1 =txtHH1.Text 



23 



HH2 = txtHH2.Text 
HH3 = (HH1 +HH2)/2 

txtHH3.Text = HH3 

C1 = txtd Text 
C2 = txtc2.Text 
C3 = (C1 + C2) / 2 

txtc3.Text = C3 

hi =txth1.Text 
h2 = txth2.Text 
h3 = (h1 +h2)/2 

txth3.Text = h3 

DD1 = txtDDI Text 
DD2 = txtDD2Text 
DD3 = (DD1 +DD2)/2 

txtDD3Text = DD3 

d1 = txtd 1 Text 
d2 = txtd2Text 
d3 = (d1 +d2)/2 

txtd3Text = d3 

A1 = HH1 * txtw.Text + C1 * (DD1 + d1) + hi * txtw.Text 
A2 = HH2 * txtw.Text + C2 * (DD2 + d2) + h2 * txtw.Text 
A3 = HH3 * txtw.Text + C3 * (DD3 + d3) + h3 * txtw.Text 

txtA1 Text = A1 / 2 
txtA2Text = A2 / 2 
txtA3Text = A3 / 2 
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D = txtdist.Text / 6 

E = txtA1 Text + 4 * txtA3.Text + txtA2.Text 

V = D * E / 27 

txtVol.Text = Round(V, 2) 

Exit Sub 

ErrHandler: 
MsgBox "Error" 

End Sub 

Private Sub cmdClear_Click() 

txtw.Text = "" 
txtdist.Text = "" 
txtd Text = "" 
txtc2Text = "" 
txtc3Text = "" 
txtHH1Text = "" 
txtHH2Text = "" 
txtHH3Text = "" 
txth1Text = "" 
txth2Text = "" 
txth3Text = "" 
txtDDI Text = "" 
txtDD2Text = "" 
txtDD3Text = "" 
txtd 1 Text = "" 
txtd2Text = "" 
txtd3Text = "" 
txtA1 Text = "" 
txtA2Text = "" 
txtA3Text = "" 
txtVol.Text = "" 
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End Sub 
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The Full Program 

The complete program includes all the component applications that can be called from the three commands above the 
Rich Text Box of the Surveyor's Field Log (Figure 5). 
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Figure 5. The entire program contains all the individual tools for making field calculations for railroad embankments and 
excavations. Each procedure is accessible from the main GUI. 
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